MODULE kinds
  INTEGER, PARAMETER :: dp = KIND(0.0D0)
END MODULE
